#library(Themis2)
#library(ConsensusClusterPlus)
args <- commandArgs(trailingOnly = TRUE)
#for (arg in args) {
#  print(arg)  # 打印当前参数
#}
#print(args[[0]])
print(args[[1]])
print(args[[2]])
print(args[[3]])
print(args[[4]])
print(args[[5]])
print(args[[6]])
print(args[[7]])
print(args[[8]])
print(args[[9]])
print(args[[10]])
print(args[[11]])
print(args[[12]])
print(args[[13]])
maxK <- as.numeric(args[[5]])
reps <- as.numeric(args[[6]])
pItem <- as.numeric(args[[7]])
clusterNum <- as.numeric(args[[8]])
clusterAlg <- args[[9]]
distance <- args[[10]]
pFeature <- as.numeric(args[[11]])
seed <- as.numeric(args[[12]])
plot <- args[[13]]

exp <- args[[1]]
gene <- args[[2]]
dir <- args[[3]]
p <- args[[4]]
setwd(dir)


#num <-ConsensusClusterPlusAnalysis(exp,gene,dir,maxK,reps,pItem,clusterNum,clusterAlg,distance,pFeature,seed,plot)
#Themis_custom_method(dir, p)
#Themis_process(dir)
#Themis_output(dir)
print("call ConsensusClusterPlusAnalysis finish!")
#num = 100
#print(num)